library(shiny)
library(datasets)
shinyServer(function(input,output){
  output$dataname <- renderText({
    paste("Structure of the dataset", input$dataset)
  })
  output$oberrvation <- renderText({
    paste("First", input$obs,"observation of the dataset", input$dataset)
  })
  output$structure <- renderPrint({
    str(get(input$dataset))
  })
  output$view <- renderTable({
    head(get(input$dataset), n = input$obs)
  })
})